#sub NAME
#sub NAME PROTO
#sub NAME ATTRS
#sub NAME PROTO ATTRS

sub message
{
   print "Hello!\n";
}


sub add
{
   $result = $_[0] + $_[1];
   print "The result was: $result\n";
}


add(1,2);


#Return Values from a Function

sub myfunc1
{
   $_[0]+$_[1];
}

print myfunc1(10,20)."\n";
sub myfunc2
{
   if (@_)
   {
      return $_[0]+$_[1];
   }
   else
   {
      return 0;
   }
}
print myfunc2();



